perm filename LOG.F4[PAG,LCS] blob sn#635570 filedate 1982-01-14 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	1	FORMAT(' TYPE X,Y,A  '$)
C00003 ENDMK
CāŠ—;
1	FORMAT(' TYPE X,Y,A  '$)
2	FORMAT(3F)
3	TYPE 1
	ACCEPT 2,X,Y,A
	Q=ALN(A)
	H=ALOG(2.)
	Z=Q/H
4	TYPE 2,Q,H,Z
	B=X*Y**Z
5	TYPE 2,B
	GO TO 3
	END